home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / pao / etc / bat_tool / yesno.asm < prev    next >
Assembly Source File  |  1994-06-01  |  1KB  |  52 lines
  1. ;==============================================================================
  2. ;    << MASM V5.1 >>  for  FM TOWNS
  3. ;==============================================================================
  4.     PAGE        60,132
  5.     NAME        YES_NO
  6.     TITLE        INPUT 'Y' or 'N'
  7. ;==============================================================================
  8. ;    ｷｰﾎﾞｰﾄﾞから'Y'または'N'が入力された時に値を返すﾌﾟﾛｸﾞﾗﾑ.
  9. ;    'Y'または改行の時は 0, 'N'の時は 1 を返す.
  10. ;
  11. ;    CREATE : 1992.03.24
  12. ;    FINISH : 1992.03.24  Version 1.00
  13. ;
  14. ;    < HISTORY >
  15. ;    1992.03.24 : CREATE
  16. ;
  17. ;    All Rights Reserved, Copyright (C) Y.Hirata 1992.
  18. ;
  19. ;    Programmed by Y.Hirata ( NIFTY-ID : NAB03321 )
  20. ;==============================================================================
  21. ;
  22. code        segment
  23.             assume    cs:code,ds:code,es:code,ss:code
  24. ;
  25.             ORG        100h                        ;
  26. entry:                                            ;
  27.             mov        ah,07h                        ;
  28.             int        21h                            ;
  29.             cmp        al,'y'                        ;
  30.             jz        short yes                    ;
  31.             cmp        al,'Y'                        ;
  32.             jz        short yes                    ;
  33.             cmp        al,0Dh                        ;
  34.             jz        short yes                    ;
  35.             cmp        al,'n'                        ;
  36.             jz        short no                    ;
  37.             cmp        al,'N'                        ;
  38.             jz        short no                    ;
  39.             jmp        short entry                    ;
  40. yes:                                            ;
  41.             sub        al,al                        ; return 0
  42.             jmp        short prgend                ;
  43. no:                                                ;
  44.             mov        al,1                        ; return 1
  45. prgend:                                            ;
  46.             mov        ah,4Ch                        ;
  47.             int        21h                            ;
  48. ;
  49. code        ends
  50.             end        entry
  51.  
  52.